﻿Public Class FrmPhanQuyen

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CbLoaiPhanQuyen.SelectedIndexChanged
        If (CbLoaiPhanQuyen.Text = "Chức vụ") Then
            LbName.Text = "Tên chức vụ:"
            'truy xuất thông tin chức vụ từ bảng ChucVu
            'add vào CbName.text
            CbName.Items.Clear()
            CbName.Items.Add("Quản Trị")
            CbName.Items.Add("Quản Lý")
            CbName.Items.Add("Nhân Viên")

            ' Add colums vào Listview
            LvBangPhanQuyen.Columns.Clear()
            LvBangPhanQuyen.Columns.Add("STT")
            LvBangPhanQuyen.Columns.Add("Nghiệp Vụ")
            LvBangPhanQuyen.Columns.Add("Quản Trị")
            LvBangPhanQuyen.Columns.Add("Quản Lý")
            LvBangPhanQuyen.Columns.Add("Nhân Viên")

            LvBangPhanQuyen.Items.Clear()

        Else
            LbName.Text = "Tên nhân viên:"
            'truy xuất thông tin nhân viên từ bảng NhanVien
            'add vào CbName.text
            CbName.Items.Clear()
            CbName.Items.Add("Phan Hồng Hải")
            CbName.Items.Add("Nguyễn Văn Tiến")
            CbName.Items.Add("Nguyễn Anh Khoa")
            CbName.Items.Add("Võ Kim Thanh")
            CbName.Items.Add("Lê Thị Phương Yến")

            ' Add colums vào Listview. đưa vào từ CSDL
            LvBangPhanQuyen.Columns.Clear()
            LvBangPhanQuyen.Columns.Add("Phân quyền")
            LvBangPhanQuyen.Columns.Add("Lập thẻ khác hàng")
            LvBangPhanQuyen.Columns.Add("Tiếp nhận sách mới")
            LvBangPhanQuyen.Columns.Add("Tra cứu")
            LvBangPhanQuyen.Columns.Add("Lập báo cáo")
            LvBangPhanQuyen.Columns.Add("Thay đổi quy định")

            LvBangPhanQuyen.Items.Clear()
            LvBangPhanQuyen.Items.Add("checkbox")
        End If
    End Sub
    Private Sub FrmPhanQuyen_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        'FrmQuanLyNhanVien.Show()
    End Sub

    Private Sub BtnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnThoat.Click
        Me.Close()
    End Sub

    Private Sub BtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReset.Click
        Me.Refresh()
    End Sub
End Class